www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统SQL正式版/admin/Admin_OrderDel.asp
<%@ LANGUAGE="VBScript" %> <!--#include file="conn.asp"--> <!--#include file="admin.asp"--> <% dim SQL, Rs, OrderNum,CurrentPage CurrentPage=request("Page") OrderNum=trim(request("OrderNum")) set rs=server.createobject("adodb.recordset") sqltext="delete from OrderList where OrderNum='"&OrderNum&"'" rs.open sqltext,conn,3,3 set rs=nothing set rs=server.createobject("adodb.recordset") sqltext="delete from OrderDetail where OrderNum='"&OrderNum&"'" rs.open sqltext,conn,3,3 set rs=nothing conn.close response.redirect "Admin_Order.asp?page="&CurrentPage %>